COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002		SUBROUTINE PLTMAN
C00005 ENDMK
C⊗;
	SUBROUTINE PLTMAN
	COMMON/PLT/JX,JY,JPL,PLT,REV,RINV,ROT,RLR,RUD,CONST,E
	1 ,JREV,JINV,KA,KB,KC,KD,RTO,JA,JB,JAR,JBR,A,IA,IB,IC,ID
C  KA-D IS FOR INVIS. INNER AREA.  IA-D IS FOR INVIS. OUTER AREA.

	COMMON JXX(4000),JCNT
	DATA JJX/1/,IDX/0/,JDP/50/
	COMMON/CLR/KP,KQ,KR,KS,P

	
	IXYZ=0
	ZLR=RLR/JPL
	ZUD=RUD/JPL
	DO 1 K=1,JCNT
	CALL UNPACK(K,JA,JB,N)
CC	IF(N.EQ.0)GO TO 2
	JA=ZLR*JA
	JB=ZUD*JB

	IF(P)GO TO 421
	IF(JA.GE.KP.AND.JA.LE.KQ.AND.JB.GE.KR.AND.JB.
	1 LE.KS)N=3
421	IF(A)GO TO 221
	IF(JA.GE.KA.AND.JA.LE.KB.AND.JB.GE.KC.AND.JB.
	1 LE.KD)N=3
221	IF(E)GO TO 2222
	IF(JA.LE.IA.OR.JA.GE.IB.OR.JB.LE.IC.OR.JB.GE.ID)N=3
C   LEAVES CLEAR AREA
CC	IF(PLT)GO TO 210
2222	IF(N.EQ.3)IXYZ=0
	IF(IXYZ)GO TO 211
210	CALL LINES(N)
	NDP=NDP+1
	IF(NDP.LT.JDP)GO TO 211
	CALL DPYOUT(1)
	NDP=0
211	IXYZ=IXYZ-1
	IF(IXYZ.GT.IDX)GO TO 1
3	IXYZ=0
C  DISPLAYS EVERY JDPth TIME
C  DPY EVERY IDXTH TIME.
CC	GO TO 1
CC2	CALL DPYOUT(1)
CC	TYPE 301
CC	ACCEPT 1001,WHICH
CC	IF(WHICH.EQ.'E'.OR.WHICH.EQ.'X')GO TO 500
CC	IF(WHICH.EQ.'R')GO TO 500
C  R=GO BACK FOR CHANGE BEFORE FINAL END.
CC301	FORMAT(' CHANGE THE PEN OR R(ETURN)',$)
CC	IF(PLT.EQ.0)GO TO 1
CC	JX=JX+JJX
CC	JY=JY+JJX
C  MOVES PEN JJX NOTCHES EACH TIME AROUND.
1	CONTINUE
CC500	IF(PLT)CALL PLOT(0,0,3)
CC1001 	FORMAT(A1)
	CALL DPYOUT(1)
	END

	SUBROUTINE UNPACK(K,JA,JB,N)
	COMMON JXX(4000),JCNT
	M=JXX(K)
	N=2
	IF(M.GE.0)GO TO 1
	IF(M.EQ.-1)GO TO 2
	M=-M
	N=3
1	JA=M/100000
	JB=M-JA*100000-120
	JA=JA-36
	RETURN
2	N=0
	END
C  N=0 MEANS TIME TO CHANGE PLOTTER PEN.